home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 February / macformat-034.iso / mac / Shareware City / Applications / Laughing Bird Folder / The Laughing Bird Restaurant / The Laughing Bird Restaurant.dxr / 00319_Okay (for Password).ls < prev    next >
Encoding:
Text File  |  1995-12-16  |  606 b   |  19 lines
  1. on mouseUp
  2.   global gOpenGates, gPassword, gThanxshowing
  3.   put the text of field "EnterPassword" into field "Password"
  4.   if the text of field "Password" = gPassword then
  5.     set gOpenGates to 1
  6.     set the text of field "EnterPassword" to " "
  7.     puppetTransition(6, 1, 1)
  8.     updateStage()
  9.     set the text of field "EnterPassword" to "Checking..."
  10.     puppetTransition(5, 1, 1)
  11.     updateStage()
  12.     saveMovie()
  13.     initPush(3, 4, 0)
  14.     go(#next)
  15.   else
  16.     alert("Please enter the password exactly as it appears in the E-mail message that was sent to you from Laughing Bird Productions.")
  17.   end if
  18. end
  19.